
{$CLEO .cs}

thread 'WALKFINS'

while true
repeat
wait 0
until if Player.Defined(0)
    if
        0500:   player 0 skin == "SHOESANDAL" on_bodypart 3
    then
        082A: set_player $PLAYER_CHAR able_to_use_crouch_button 0
        06AF: set_player $PLAYER_CHAR sprint_mode 1
        if
            0965:   actor $PLAYER_ACTOR swimming
        then
            06AF: set_player $PLAYER_CHAR sprint_mode 0
            0393: actor $PLAYER_ACTOR perform_animation "swim_under" at 1.4 times_normal_rate
            0393: actor $PLAYER_ACTOR perform_animation "swim_crawl" at 1.4 times_normal_rate
        end
    else
        082A: set_player $PLAYER_CHAR able_to_use_crouch_button 1
        06AF: set_player $PLAYER_CHAR sprint_mode 0
        0393: actor $PLAYER_ACTOR perform_animation "swim_under" at 1.0 times_normal_rate
        0393: actor $PLAYER_ACTOR perform_animation "swim_crawl" at 1.0 times_normal_rate
    end    
end
end_thread 